-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy path4.5.1.1 (a+b sec)^n.nb
More file actions
9079 lines (8866 loc) · 455 KB
/
4.5.1.1 (a+b sec)^n.nb
File metadata and controls
9079 lines (8866 loc) · 455 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 456818, 9070]
NotebookOptionsPosition[ 445674, 8781]
NotebookOutlinePosition[ 447334, 8834]
CellTagsIndexPosition[ 447291, 8831]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
StyleBox["Rules for integrands of the form ",
FontFamily->"Arial"],
Cell[BoxData[
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "n"]],
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9,
3.5193415113404875`*^9}, {3.5193513965602303`*^9,
3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9},
3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9,
3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9,
3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9,
3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9,
3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9,
3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
3.5415564120531206`*^9, 3.5415564206955357`*^9},
3.5415565488341613`*^9, {3.5415605631516123`*^9,
3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9},
3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9},
3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9,
3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9,
3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9,
3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
3.5621084519718895`*^9}, 3.563340740121106*^9},
FontWeight->"Bold"]
}], "None"]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9,
3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9,
3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9,
3.5450834895895033`*^9}, {3.5454961263762493`*^9,
3.5454961321462574`*^9}, {3.5454963863166127`*^9,
3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9,
3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9,
3.5462145601073203`*^9}, {3.5463149785974817`*^9,
3.5463149794195285`*^9}, {3.5488738437683954`*^9,
3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9,
3.5505952630869055`*^9}, {3.5535321133435373`*^9,
3.5535321173537664`*^9}, {3.5536175341411576`*^9,
3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9,
3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9,
3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9,
3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9,
3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9,
3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
3.575853290447487*^9, 3.575853290447487*^9}, {3.59677884868538*^9,
3.59677885607539*^9}, {3.6058945381758122`*^9, 3.6058945724490724`*^9}, {
3.6080751006970787`*^9, 3.6080751257671137`*^9}, {3.6097404905638475`*^9,
3.6097405432739215`*^9}, {3.609869630043415*^9, 3.609869630043415*^9}, {
3.6117955383803935`*^9, 3.6117955383803935`*^9}, {3.623961706089922*^9,
3.6239617076499243`*^9}},
TextAlignment->Center,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{Cell[TextData[StyleBox["1.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9,
3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9,
3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9},
3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9},
3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9,
3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9,
3.561757856045182*^9, {3.561758454918521*^9, 3.561758464358534*^9}, {
3.5617585090285964`*^9, 3.5617585090285964`*^9}, 3.562030415889578*^9,
3.562088059612624*^9, 3.562089480764614*^9, {3.562089547444707*^9,
3.5620895531647153`*^9}, 3.5633195983876543`*^9, 3.5967359959525976`*^9,
3.611791784860116*^9, 3.6239617458199778`*^9, 3.6239620600104175`*^9,
3.6239625742232924`*^9, 3.6239630463839536`*^9, 3.6648277025150537`*^9, {
3.6648278004536552`*^9, 3.6648278038418493`*^9}, {3.664838078733539*^9,
3.6648380907582273`*^9}, 3.675706738146452*^9},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t",
RowBox[{Cell[TextData[StyleBox["1.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9,
3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9,
3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9},
3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9},
3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9,
3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9,
3.561757856045182*^9, {3.561758454918521*^9, 3.561758464358534*^9}, {
3.5617585090285964`*^9, 3.5617585090285964`*^9}, 3.562030415889578*^9,
3.562088059612624*^9, 3.562089480764614*^9, {3.562089547444707*^9,
3.5620895531647153`*^9}, 3.5633195983876543`*^9, 3.5967359959525976`*^9,
3.611791784860116*^9, 3.6239617458199778`*^9, 3.6239620600104175`*^9,
3.6239625742232924`*^9, 3.6239630463839536`*^9, 3.6648277025150537`*^9, {
3.6648278004536552`*^9, 3.6648278038418493`*^9}, {3.664838125045188*^9,
3.664838171806863*^9}, {3.664838302304327*^9, 3.664838304611459*^9}, {
3.664838580281226*^9, 3.664838580281226*^9}, {3.6648548420507493`*^9,
3.6648548427767906`*^9}, 3.6757067645439615`*^9, {3.6757071051344423`*^9,
3.675707107142557*^9}, {3.692560382008984*^9, 3.692560411939026*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["1:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}], "n"],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{
FractionBox["n", "2"], "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9,
3.5193415824298124`*^9}, {3.5193459537101994`*^9,
3.5193459567210045`*^9}, {3.5193514074002457`*^9,
3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9},
3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9,
3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9,
3.5415554284869933`*^9}, {3.541555475521076*^9, 3.5415554813086863`*^9},
3.5416184645165453`*^9, {3.541623979263562*^9, 3.5416239920741987`*^9}, {
3.541650080259365*^9, 3.5416500849993715`*^9}, 3.541650399669812*^9,
3.5416505520600257`*^9, 3.541650693810224*^9, 3.560533154102931*^9,
3.5605392631514835`*^9, 3.5608121174215755`*^9, 3.560819475996877*^9,
3.560819541596969*^9, {3.560819614537071*^9, 3.560819614537071*^9}, {
3.560820223717924*^9, 3.5608202239079247`*^9}, 3.5608202925480204`*^9, {
3.5620895553747187`*^9, 3.56208956387473*^9}, {3.562089607374791*^9,
3.5620896116547976`*^9}, 3.563319598397654*^9, {3.5634867856586103`*^9,
3.5634867866986117`*^9}, 3.6117917865601187`*^9, 3.6239617471899796`*^9,
3.623962060060417*^9, 3.6239630464239535`*^9, 3.664827704952193*^9,
3.664827809781189*^9, 3.6648381755710783`*^9, 3.6648383106718054`*^9, {
3.664838381922881*^9, 3.664838381922881*^9}, 3.675706766000045*^9, {
3.6757068469406743`*^9, 3.675706849120799*^9}, 3.675707112737877*^9,
3.6925603934890003`*^9, {3.692560429979051*^9, 3.6925604345090575`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell["Derivation: Integration by substitution", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9}],
Cell[TextData[{
"Basis: If ",
Cell[BoxData[
RowBox[{
FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
", then ",
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}], "n"], "\[Equal]",
RowBox[{
FractionBox["1", "d"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}], "2"]}], ")"}],
RowBox[{
FractionBox["n", "2"], "-", "1"}]], " ",
RowBox[{
SubscriptBox["\[PartialD]", "x"],
RowBox[{"Tan", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9, {
3.4990190900957537`*^9, 3.4990190900957537`*^9}, {3.499019132685813*^9,
3.499019132685813*^9}, {3.499019483866305*^9, 3.4990194928763175`*^9}, {
3.515621260576377*^9, 3.5156212760232606`*^9}, {3.5156213185296917`*^9,
3.515621320173786*^9}, {3.5608198944674635`*^9, 3.5608199099574847`*^9}, {
3.5608199502875414`*^9, 3.5608199502875414`*^9}, {3.5608200091576233`*^9,
3.560820014867632*^9}, {3.563319598407654*^9, 3.563319598417654*^9}, {
3.5633255535659914`*^9, 3.5633255535659914`*^9}, {3.6239620600704174`*^9,
3.6239620600804176`*^9}, {3.6239623381279616`*^9,
3.6239623381279616`*^9}, {3.6239630464339533`*^9, 3.6239630464439535`*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{
FractionBox["n", "2"], "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9,
3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
3.497576396827541*^9, 3.4975764493076143`*^9}, 3.497576946310916*^9, {
3.515621399722336*^9, 3.515621399898346*^9}, {3.5620896155848026`*^9,
3.5620896155848026`*^9}, 3.5620896625348682`*^9, {3.6648383939535685`*^9,
3.6648383939535685`*^9}, {3.692560444909072*^9, 3.6925604702491074`*^9}}],
Cell[BoxData[
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}], "n"],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
FractionBox["1", "d"]}]}],
RowBox[{"Subst", "[",
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
SuperscriptBox["x", "2"]}], ")"}],
RowBox[{
FractionBox["n", "2"], "-", "1"}]],
RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",",
RowBox[{"Tan", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], "]"}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9,
3.497576391597533*^9}, 3.4990190900957537`*^9, 3.499019132685813*^9, {
3.499019574686432*^9, 3.4990195851264467`*^9}, {3.515362991802678*^9,
3.5153629954526834`*^9}, {3.51536306437278*^9, 3.5153630656927814`*^9}, {
3.515621409121874*^9, 3.515621460616819*^9}, 3.560819865737423*^9,
3.5608200206376395`*^9, {3.5633195984276543`*^9, 3.563319598437654*^9},
3.5633256063360653`*^9, {3.623962060090418*^9, 3.6239620601004176`*^9},
3.623962339047963*^9, {3.6239630464539537`*^9, 3.6239630464539537`*^9}},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell["Program code:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
3.492805165713872*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"csc", "[",
RowBox[{"c_.", "+",
RowBox[{"d_.", "*", "x_"}]}], "]"}], "^", "n_"}], ",", "x_Symbol"}],
"]"}], " ", ":=", "\n", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "/", "d"}], "*",
RowBox[{"Subst", "[",
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{"ExpandIntegrand", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"x", "^", "2"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{
RowBox[{"n", "/", "2"}], "-", "1"}], ")"}]}], ",", "x"}], "]"}],
",", "x"}], "]"}], ",", "x", ",",
RowBox[{"Cot", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ",
RowBox[{"IGtQ", "[",
RowBox[{
RowBox[{"n", "/", "2"}], ",", "0"}], "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
3.497576340197461*^9, {3.4979216145737824`*^9, 3.4979216447910357`*^9},
3.497921964482397*^9, {3.499114117121869*^9, 3.499114132701891*^9},
3.4991143537822003`*^9, {3.515596335530735*^9, 3.5155963364979367`*^9},
3.5156213787771378`*^9, 3.549078125175458*^9, {3.560819793707322*^9,
3.5608198096473446`*^9}, 3.560820032187656*^9, {3.5620895770947485`*^9,
3.562089588514765*^9}, {3.563319598457654*^9, 3.563319598467654*^9},
3.5633254762358828`*^9, 3.56410895041569*^9, 3.6239620844804516`*^9,
3.6239622944539003`*^9, {3.623962351927981*^9, 3.623962356047987*^9}, {
3.623963070413987*^9, 3.623963084614007*^9}, 3.62396324118237*^9,
3.664838424139295*^9, 3.692560489159134*^9, {3.715458537790292*^9,
3.7154585425145617`*^9}},
Background->GrayLevel[0.85]],
Cell["", "Subsubsection",
CellDingbat->None,
CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["2:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9,
3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9},
3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9,
3.5193415824298124`*^9}, {3.5193459537101994`*^9,
3.5193459567210045`*^9}, {3.5193514074002457`*^9,
3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9},
3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9,
3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9,
3.5415554284869933`*^9}, {3.541555475521076*^9, 3.5415554813086863`*^9},
3.5416184645165453`*^9, {3.541623979263562*^9, 3.5416239920741987`*^9}, {
3.541650080259365*^9, 3.5416500849993715`*^9}, 3.541650399669812*^9,
3.5416505520600257`*^9, 3.541650693810224*^9, 3.560533154102931*^9,
3.5605392631514835`*^9, 3.5608121174215755`*^9, 3.560819475996877*^9,
3.5608195453569746`*^9, {3.560819620147079*^9, 3.560819620147079*^9}, {
3.560820134487799*^9, 3.560820134487799*^9}, {3.5608202295779324`*^9,
3.5608202297579327`*^9}, 3.5608202932580214`*^9, {3.5620895568347206`*^9,
3.562089562044728*^9}, {3.5620896319448256`*^9, 3.562089636484832*^9},
3.563319598477654*^9, 3.5967360159126253`*^9, 3.611791787090119*^9,
3.62396174765998*^9, 3.6239620601104174`*^9, 3.623962580893302*^9,
3.6239630464639535`*^9, 3.6648277056612334`*^9, 3.66482781085225*^9,
3.6648381766661406`*^9, 3.6648383116918635`*^9, {3.66483846075939*^9,
3.6648384783403955`*^9}, {3.6648385215598674`*^9, 3.664838522110899*^9},
3.6757067664720716`*^9, 3.6757071136599293`*^9, 3.692560395409003*^9, {
3.6925605335091963`*^9, 3.6925605335091963`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell["Reference: CRC 313", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9,
3.4975766144178452`*^9, 3.4990195622564144`*^9, 3.515621639406045*^9, {
3.56332515982544*^9, 3.563325160345441*^9}, {3.5633252496255655`*^9,
3.563325268905593*^9}, {3.563325313585655*^9, 3.5633253178956614`*^9}}],
Cell["Reference: CRC 309", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.4975761400971813`*^9, 3.4975762082572765`*^9,
3.4975766144178452`*^9, 3.4979220484261446`*^9, 3.4991144634223537`*^9,
3.515621682131489*^9, {3.563325171125456*^9, 3.563325171675456*^9}, {
3.5633252591855793`*^9, 3.563325261365582*^9}, {3.5633253222856674`*^9,
3.563325325225672*^9}}],
Cell[TextData[{
"Derivation: Secant recurrence 3a with ",
Cell[BoxData[
RowBox[{
RowBox[{"A", "->", "0"}], ",",
RowBox[{"B", "\[Rule]", "a"}], ",",
RowBox[{"C", "\[Rule]", "d"}], ",",
RowBox[{"m", "\[Rule]",
RowBox[{"m", "-", "1"}]}], ",",
RowBox[{"n", "\[Rule]",
RowBox[{"-", "1"}]}]}]]]
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9},
3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9,
3.5455051376488647`*^9}, {3.5456005712019787`*^9,
3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9,
3.5630305459812794`*^9}, {3.5630307316528053`*^9,
3.5630307335092087`*^9}, {3.5630327435025606`*^9,
3.5630327618226085`*^9}, {3.563034117071627*^9, 3.563034127791642*^9},
3.563037578736473*^9, {3.5633254287758164`*^9, 3.563325429735818*^9}, {
3.623962364997999*^9, 3.623962364997999*^9}}],
Cell[TextData[{
"Rule: ",
"If ",
Cell[BoxData[
RowBox[{"n", ">", "1"}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9,
3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9,
3.4975769425809107`*^9}, {3.560820137107803*^9, 3.560820137107803*^9}, {
3.5620896408248377`*^9, 3.562089658874863*^9}, {3.664838488925001*^9,
3.664838488925001*^9}, {3.664838529315311*^9, 3.664838529315311*^9}, {
3.6925605360291996`*^9, 3.6925605360291996`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
FractionBox[
RowBox[{"b", " ",
RowBox[{"Sin", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
RowBox[{"n", "-", "1"}]]}],
RowBox[{"d", " ",
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "+",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["b", "2"],
RowBox[{"(",
RowBox[{"n", "-", "2"}], ")"}]}],
RowBox[{"n", "-", "1"}]],
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}],
RowBox[{"n", "-", "2"}]],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4975763844775233`*^9,
3.497576391597533*^9}, 3.497576663447914*^9, {3.499019090105754*^9,
3.499019090105754*^9}, 3.499019132685813*^9, {3.4990196195064945`*^9,
3.4990196235665007`*^9}, {3.5153630090427017`*^9,
3.5153630130727077`*^9}, {3.5153630748827944`*^9,
3.5153630766027966`*^9}, {3.5156217057968426`*^9, 3.5156217073369303`*^9},
3.515621761942054*^9, 3.5156229033033357`*^9, 3.5156234813814*^9,
3.515623587913493*^9, {3.562428183083187*^9, 3.5624281855131903`*^9}, {
3.5624285583637123`*^9, 3.562428569553728*^9}, {3.5624289186242166`*^9,
3.562428920594219*^9}, {3.5633262709869957`*^9, 3.5633262710169954`*^9},
3.5634642967565536`*^9, {3.563464329655435*^9, 3.563464329674436*^9},
3.5634656273176575`*^9, {3.5634657073732357`*^9, 3.563465711426468*^9}, {
3.563465778136284*^9, 3.5634657806594276`*^9}, {3.5674758028104687`*^9,
3.5674758041904707`*^9}, {3.567476690211711*^9, 3.5674766953517184`*^9}, {
3.6239620601104174`*^9, 3.623962060130418*^9}, 3.6239623661680007`*^9, {
3.6239626033133335`*^9, 3.623962623803362*^9}, {3.6239630464739532`*^9,
3.6239630464839535`*^9}},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell["Program code:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
3.492805165713872*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"b_.", "*",
RowBox[{"csc", "[",
RowBox[{"c_.", "+",
RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}], ",",
"x_Symbol"}], "]"}], " ", ":=", "\n", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "b"}], "*",
RowBox[{"Cos", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}], "*",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"b", "*",
RowBox[{"Csc", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"d", "*",
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n",
" ",
RowBox[{
RowBox[{"b", "^", "2"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"n", "-", "2"}], ")"}], "/",
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}]}], "*",
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"b", "*",
RowBox[{"Csc", "[",
RowBox[{"c", "+",
RowBox[{"d", "*", "x"}]}], "]"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"n", "-", "2"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
"\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"b", ",", "c", ",", "d"}], "}"}], ",", "x"}], "]"}], " ", "&&",
" ",
RowBox[{"GtQ", "[",
RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ",
RowBox[{"IntegerQ", "[",
RowBox[{"2", "*", "n"}], "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
3.497576340197461*^9, 3.497576630537868*^9, {3.4979216145737824`*^9,
3.4979216447910357`*^9}, 3.497922058394562*^9, {3.4991141171318693`*^9,
3.499114132711891*^9}, 3.49911445341234*^9, 3.515621674271039*^9, {
3.5156228558636227`*^9, 3.5156228620559764`*^9}, 3.5156233221502924`*^9,
3.5156235790579867`*^9, {3.5608205388783655`*^9, 3.5608205625683985`*^9},
3.5620911647869716`*^9, 3.5624279822829056`*^9, {3.5624281928832006`*^9,
3.56242819924321*^9}, {3.5624285964037657`*^9, 3.562428602533774*^9}, {
3.5624287091739235`*^9, 3.5624287091939235`*^9}, {3.562428931114234*^9,
3.5624289337742376`*^9}, 3.5624313707676497`*^9, {3.5633262710569954`*^9,
3.5633262710869956`*^9}, 3.5633291917110844`*^9, 3.5634643845285735`*^9,
3.563464466267249*^9, {3.5634645310729556`*^9, 3.5634645542182794`*^9}, {
3.5634645851600494`*^9, 3.563464585164049*^9}, 3.5634653497927837`*^9, {
3.5634658129432745`*^9, 3.5634658182015753`*^9}, 3.564109657250682*^9, {
3.596736071332703*^9, 3.5967360807227163`*^9}, {3.6239620845104513`*^9,
3.623962084530452*^9}, 3.6239622944839*^9, {3.6239623737480116`*^9,
3.623962374268012*^9}, 3.6239626664934216`*^9, {3.6239626994634676`*^9,
3.62396270132347*^9}, {3.6239627899635944`*^9, 3.6239627947836013`*^9}, {
3.623963070433987*^9, 3.6239630846340075`*^9}, 3.623963253702388*^9,
3.6648385500384965`*^9, 3.6925605237391825`*^9, {3.7154585654078712`*^9,
3.7154585685910535`*^9}},
Background->GrayLevel[0.85]],
Cell["", "Subsubsection",
CellDingbat->None,
CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t",
RowBox[{Cell[TextData[StyleBox["2:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{"n", "<",
RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9},
3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9,
3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9,
3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9,
3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9,
3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9,
3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9,
3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9,
3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9,
3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9,
3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9,
3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416475828058686`*^9,
3.541647583085869*^9}, {3.5605378008794365`*^9, 3.5605378010494366`*^9}, {
3.560538011299731*^9, 3.560538012419732*^9}, {3.560538084979834*^9,
3.560538086459836*^9}, 3.560812117891576*^9, {3.5608206072284613`*^9,
3.5608206196984787`*^9}, {3.5608207431986513`*^9, 3.5608207484086585`*^9},
3.562089889175186*^9, {3.5620902904057474`*^9, 3.5620902918057494`*^9},
3.562090929376642*^9, 3.5633195988076544`*^9, 3.5983781842106094`*^9,
3.611791788730121*^9, 3.623961749109982*^9, 3.6239620601904173`*^9,
3.623962813473627*^9, 3.6239630465139537`*^9, 3.664827708801413*^9,
3.664827814835478*^9, {3.664838178614252*^9, 3.6648382084149566`*^9}, {
3.664838621055558*^9, 3.664838625525814*^9}, {3.664854896312853*^9,
3.6648548967818794`*^9}, 3.675706768482187*^9, {3.6757071018192525`*^9,
3.675707103139328*^9}, 3.692560384198987*^9, {3.692560842429629*^9,
3.692560842429629*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell["Reference: CRC 305", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9,
3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}, {
3.515623278601802*^9, 3.5156232989499655`*^9}, 3.5156237051762*^9, {
3.56332598139659*^9, 3.563325987756599*^9}}],
Cell["Reference: CRC 299", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
3.4975762570673447`*^9, 3.4975763239574385`*^9}, 3.4975764674176397`*^9,
3.4975766222178564`*^9, {3.515622758908077*^9, 3.5156227652274384`*^9}, {
3.515623278601802*^9, 3.5156232989499655`*^9}, {3.5156233384022217`*^9,
3.5156233496358643`*^9}, 3.515623693824551*^9, {3.563326006456625*^9,
3.563326014236636*^9}}],
Cell[TextData[{
"Derivation: Secant recurrence 1a with ",
Cell[BoxData[
RowBox[{
RowBox[{"A", "\[Rule]", "1"}], ",",
RowBox[{"B", "\[Rule]", "0"}], ",",
RowBox[{"C", "\[Rule]", "0"}], ",",
RowBox[{"n", "\[Rule]", "0"}]}]]]
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9,
3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9},
3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9,
3.5455051376488647`*^9}, {3.5456005712019787`*^9,
3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9,
3.5630305459812794`*^9}, {3.5630307316528053`*^9,
3.5630307335092087`*^9}, {3.5630327435025606`*^9,
3.5630327618226085`*^9}, {3.5630346364023542`*^9, 3.563034660882388*^9}, {
3.5630373965362186`*^9, 3.5630374009562244`*^9}, {3.563325834936385*^9,
3.5633258371663885`*^9}}],
Cell[TextData[{
"Rule: ",
"If ",
Cell[BoxData[
RowBox[{"n", "<",
RowBox[{"-", "1"}]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9,
3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
3.497576396827541*^9, 3.4975764493076143`*^9}, {3.4975769195008783`*^9,
3.4975769425809107`*^9}, {3.515622784285528*^9, 3.5156227858816195`*^9},
3.515622836578519*^9, {3.5156236334840994`*^9, 3.5156236340031295`*^9}, {
3.5156237450384803`*^9, 3.5156237484156733`*^9}, {3.6648386422137685`*^9,
3.6648386422137685`*^9}, {3.692560844579632*^9, 3.692560844579632*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", " ",
RowBox[{"Sec", "[",
RowBox[{"c", "+",
RowBox[{"d", " ", "x"}]}], "]"}]}], ")"}], "n"],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",